home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 December / Dec99.iso / Data / Main.dxr / 00052_print button-text member.ls < prev    next >
Encoding:
Text File  |  1999-10-05  |  430 b   |  23 lines
  1. property printField
  2.  
  3. on new me
  4.   return me
  5. end
  6.  
  7. on getPropertyDescriptionList me
  8.   description = [:]
  9.   addProp(description, #printField, [#default: "none", #format: #string, #comment: "The field to print:"])
  10.   return description
  11. end
  12.  
  13. on getBehaviorDescription me
  14.   return "prints the field defined by printField"
  15. end
  16.  
  17. on mouseUp me
  18.   if printField <> "none" then
  19.     put printField
  20.     print(member(printField).text)
  21.   end if
  22. end
  23.